AAAAAAAAA 

AARAAAARK 

AAAAAAABRA 
AA BAL 
ABL ABA 
ARR AAA 
AAA Aaa 
AAA ARA 
AAA AAA 
AAA ALA 
AAA AAA 
KAR ADA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ALA AAA 
AAR AAA 
AAR Aaa 
AAA AAA 
Aha AAA 


POOOOOOIOOOOOIAIAS 
AOOOAOOOIAIOAOIOOIAOIS 
OOM OAOAIOAAIAAIAIAOOA 


KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKKKKKKKK 
KKKKKKKKK 
KKKKKKKKK 

KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 


UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UYUUUUUUUUUUUUUU 
YUUUUUUUUUUUUUU 
UUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


Se 


| *#F LLE**1D**BADBLOCK 
BBBBBBBB = AAAAAA = DDDDDDDD»=s BBBBBBBB LL 900000 CCCCCCCE KK KK 
BBBBBBBB_ = AAAAAA = DDDDDDDD_—BBBBBBBB 0 CCECECCE KK KK 
BB = BB CAA OAA.sOD pb 88 = BB CLL 00 c¢ KK KK 
BB 8 BB CAAA. DD BB = BB CULL 00 oo Ct KK KK 
BB 8 BB CAA AAD DD BB = BB CULL 00 00 CC KK KK 
BB BB AA OAs DD BB BB LL 00 00 CC KK KK 
BBBBBBBB = AA = AA DOD LL 00 oo ct KKKKKK 
BBBBBBEB = AA AAO DD LL 00 oo Ct KKKKKK 
BB BB AAAAAAAAAA DD DD 88 = BB CULL 00 00 CC KK KK 
BB  § BB AAAAAAAAAA DD = »DD:-«BBC«@ECULLL 00 oo Ct KK KK 
BB 8 BB CAA OAA.sCOD DD 88 B LL 00 00 CC KK KK eves 
BB BB AA OAs DD 88 BELL 00 ~~ oo ee KK KK $oee 
BBBBBBBB)==AA = AA-ODDDDDDDD = BBBBBBBB =LLLLLLLLLL ©0000 CCCCCECE KK KK ere 
BBBBBBEB = AA = AA-DDDDDDDD = BABBBBBB = LLLLLLLLLL ©=—-000000 CCCECECE KK KK ee 
LL III SSSSSSSS 
LL 11 SSSSSSSS 
LL 1 $$ 
LL 1 $$ 
LL 1 $$ 
LL 1] $$ 
LL 1 SSSSSS 
LL 1 SSSSSS 
LL 1 $$ 
tL 1 $$ 
LL 1 $$ 
LL 1 $$ 
LLLLLLLLLL «TITTY = SSSSSSSS 
LLLLLELELE «=I = SSSSSSSS 


- shaillipisanlenedidieanepiantinammsiiamstinaeieecalidaianaiiancstentedeepenngnimneitisinaireanie 
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BADBLOCK Scan bad block information 12-300" 1386 $3:6¢:08 reg Bliss-32 V4.0-74 
14-Sep-1984 11:55:4 BACKUP. SRC JBADBLOCK .832;1 
ZTITLE “egan bad block information’ 
DENT = ‘v04-000' 
= 


MODULE BADBLOCK ' 
) 


BEGIN 


1 
leuaneueenaceeaceeerenctenteeeereereererteeteeereetecennentennneenenereetees 
'® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS peace UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY E WITH THE TERM F H THT 


SLLSSSSSCSS 


Oooooooo 
Ssssessss 


i 4 

3 4 

3 5 1 

3 § 1 

3 1 

3 8 1 * 
3 9 1 * 
3; 10 1 * 
; 1} Bot : é 
4 ® 
; i bo1§ 1 * 
3 14 014 1 !8 IN ACCORDANC SUCH LICENSE AND WI HE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1¢ Bate 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 1 001 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bats ; :* TRANSFERRED. * 
3 ‘tf ® 
; st Bn59 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 B058 ! :* CORPORATION. . 
; te 

3; B05 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
fee. 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& 0026 1 !* * 
, a 0027 1 !* * 
3 28 0028 1 Nea e eee k eae e eee AE RAAT AERA AAA AAA TARA AAAR AAA E RARE 
3 9 0029 1 

3 $9 $080 1 !¢¢ 

3 1 0031 1! 

3 ¢ tT) 1 ! FACILITY: 

3 0035 1! Backup/Restore 

3 ze 0034 1! 

3 5 0035 1 ! ABSTRACT: 

3 36 0036 1! This module contains the routines that do the bad block processing, 

eam 0037 1! The code in this module is derived from and should track module INIBAD 
3 3 0038 1! in the INIT facility. 

; ) 0039 1! 

; 40 0040 1 ! ENVIRONMENT: 

3; C41 0041 1! VAX/VMS user mode. 

s; $62 0042 1 !-- 

3; 665 0043 1! 

; «6464 044 1! 

3; 645 045 1! AUTHOR: MM. Jack, CREATION DATE: 23-Sep-1980 

3; & rk 1! 

3; 647 47 1 ! MODIFIED BY: 

; «648 0048 1! : 

i; «649 0049 1! v03-002 ACGO316 Andrew C. Goldstein, 11-Feb-1983 11:49 

3 20 ones ' } Fix handling of software last track bad block data 

: 25 OOe¢ +! v03-001 ACG0283 Andrew C. Goldstein 88-Apr-1982 10:33 

; 33 093 Disable bad block processing on MSCP disks 

; 55 0085 1! v02-003 MLJ0054 Martin L. Jack, 22-Nov-1981 21:40 

3 28 BpeS ' Integrate GET_VM and FREE_VM jacket routines. 


5 
ten bod Meet. tnfonecton ERE BEE FEAGIEY MMPS, af 


8 $038 v02-002 MLJ0011 Martin L. Jack, 26-Mar-1981 14:20 
4 B28 Remove extra indirection in BAOBLOCK_LBN and BADBLOCK_CNT definitions 


Add capebit ity to round to cluster boundaries ib standalone 


volume initialize. Replace OWN storage with LOCAL. 


Se ee Ge Ge Bees eee 
- o 
= 
oO 
o 
— 


1! 

1! 

1! 

1 v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 15:05 
1; 

1! 

1! 


° 
eg 


Wo 


a a dd 
PD at at et tt a a tt th 
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14-Sep =188¢ 73 2g: 95 BACKUP. SRC JBADBLOCK .B832;1 ’ (2) 

1 REQUIRE “SRC$:COMMON'; 

: LIBRARY 'SYSSLIBRARY: (18'; 

1 

1 LINKAGE 

: PS = CALL: GLOBAL (P$=11); 

1 

1 MACRO 

! L_DECL= EXTERNAL REGISTER PS = 11: REF VECTOR %; 

1 

1 FORWARD ROUTINE 

1 GET era; tte ! Main level bad block i ap 

1 GET-FACTBAD L_PS, ! Process factory bad block data 

1 GET ~SOF TBAD; L-P$ NOVALUE, ' Process bad block scan program data 

' MARR_BAD: L=P$ NOVALUE; ! Enter bad block in allocation table 

1 

1 EXTERNAL ROUTINE 

1 CHEC KSURe. ! Compute block checksum 

1 FILE_ERROR: NOVALUE, ' Issue file-related error 

: GE 3 ! Allocate virtual memory 

1 

1 EXTERNAL LITERAL 

1 BACKUPS. _READBAD, 

1 BACKUP$_DIAGPACK, 

1 BACKUP$_NOBADDATA, 

1 BACKUP$_FACTBAD, 

1 BACKUP$_MAXBAD; 


my 


<@ 


po 


ro — — 


BADBLOCK_CNT(N)= 


VECTORC-BADBLOCK~ tnt NJ %; 


6 
| BARB Ok Scan bad block information 1$-sep -1984 23:4 03 AX-11 Bliss-32 v4.0-74 
| VO04 1a-8ep -1984 11:55:4 BACKUP. SRC JBADBLOCK .832;1 
$ 39 1 Oe 1 LITERAL 
a 190 ! 04 : BADBLOCK_MAX= 128; ! Length of bad block table 

: 10 1205 1 

: 198 1 88 1 MACRO 

: 1046 1207 1 BADBLOCK_FAB= PS$(0) %, ' FAB for device 

3; 105 1208 1 BADBLOCK CHAN= PS$[1) %, ' Channel number 

; 106 1209 1 DEVICE _CHA HAR= P$ ¢ i, ! Device characteristics 

; 10 1210 1 PE i, ' Cluster factor 

; 108 1211 1 CLUST PRESENT= P$L4) &, ' Cluster factor present 

: 109 1 \¢ 1 SERIAC_NUMBER= P$(5) %, ' Pack serial number 

: 110 1213 1 BADBLOTK TOTAL= P$ § i ' Count of bad areas so far 
3 31) 1214 1 * LOCK. P$ i, ! Bad block LBN table 

$ ig 1215 1 BADBLOCK (NT= P$L7+BADBLOCK aa z i Ht soe: aie h table 

> 14 1216 1 BADBLOCK_FAB(O,P,S,E)= BBLOCRE. DBL OCK_F Bi 

> 114 1217 1 DEVICE CRAR(O,P,$,€)= BBLOCKT. -Bevit E CRA aR, Reo. “x g° E 

: 115 1218 1 BADBLOTK_LBN(N)= VECTORE_BA SBLOER L nj £,° 

3 19 1219 «#1 

s 91 1220 1 

3s 118 \$$) 1 

3; «119 12 ; 1 

: 120 1223 1 


LITERAL 
P$_SIZE= 


cf 


7 + BADBLOCK_MAX + BADBLOCK_MAX; 


Page 


am 


_ SS SS 
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viet seen bad block information 1b-sep-19 4 $336 08 poret Bliss-32 V4.0-74 
 v04 GET_BADBLOCKS = main bad block routine 14-Sep-1984 11:55:4 BACKUP. SRC JBADBLOCK .B32;1 
1 


is 3 3 4 1 ZSBTTL ‘GET_BADBLOCKS = main bad block routine’ 

3 : Z : 5 } GLOBAL ROUTINE GET_BADBLOCKS (FAB, CHAN, DEVCHAR, CLUST)= 

EU RRP tse 

..¥ $ 1229 1 | FUNCTIONAL DESCRIPTION: 

: 128 1230 1! This is the main bad block ber ge tee routine. It calls the factory 
: ; , ; 1 : } data and software data bad block routines as appropriate. 

: 131 1 : 1 | INPUT PARAMETERS: 

oe ¢ 1 1! FAB - Pointer to FAB. 

ah 1255 1! CHAN - Channel assigned to the device. 

. 1 § 2.3 DEVCHAR - Pointer to device characteristics for the device. 
3 135 1 3 CLUST - Cluster factor (optional). 

Zo 1 1! If present, bad areas are rounded to cluster 
3 4 ; ip : } boundaries, and the last track is marked bad. 
: 139 1241 1! IMPLICIT INPUTS: 

a9 1508 7 i — 

; 149 ead : OUTPUT, PARAMETERS 

144 1246 1 

3 re ie : } PL Fees 

: 147 1249 1 

3: 4148 1530 1 ! ROUTINE VALUE: 

3 4 : $3 : Pointer to a bad block descriptor, allocated by LIBSGET_VM. 

: 151 1588 1 | SIDE EFFECTS: 

3 13¢ 1254 1! Disk bad block data read 

: 18 158} | 

: 155 1257 & 

HP TBR Stay 

: 158 1260 PSAREA: VECTORCP$. SIZEJ, ! Impure area 

; 159 1261 AREA: REF BBLOCR, ! Pointer to gotten area 
; 160 1366 DESC: REF BBLOCK; ! Pointer to descriptor 
3; «6161 126 GLOBAL REGISTER 

3 166 1see zs 11: REF VECTOR; ! Impure storage base 

; (16 1265 BUILTIN 

3 160 1396 ACTUALCOUNT; 

; 166 1568 , 

3 Ho4 166? : Initialize the impure storage so the inner routines can access it. 

: 169 1574 P$ = PSAREA; 

; 170 1 6 BADBLOCK_FAB = .FAB; 

: «171 127 ADBLOCK_CHAN = .CHAN; 

; We 1274 DEVICE CHAR = .DEVCHAR; 

: 4, ! o CLUST PRESENT = FALSE; 

: 175 1 58 IF ACTUALCOUNT() GEQ 4 

: 176 1 8 THEN 

s 177 127 BEGIN 

3 178 1280 CLUST_PRESENT = TRUE; 


OOO EE eee... a ————e 


1 


am 


Bee Se Se Se Se Se Se See Se Se Se Se Se Se Se Oe Se Se Se Se Se Se Se ee HSH Se Se Se ee Se SHS Se Se ee Se ee Se Sees asas 
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v04- GET_BADBLOCKS = main bad block routine 14-Sep-1984 11:55:4 BACKUP. SRC JBADBLOCK .B32;1 (4) 
; 179 1281 CLUSTER = .CLUST; 
EUR HBS § oat SE tora =o 

; = ve 

oF ¢ 1284 SERIAL_NOMBER = 0; 

: 184 1588 

s 185 T 5 ! Establish whether the volume has factory bad block data or not and 
: 138 : 3 : call the appropriate routine. 

; «#188 1290 If .DEVICE cuanto ies, pare oct GTRU SMALL_DISK 

; 6189 1291 AND NOT .DEVICE_CHARCDEVS$v_RCT 

; 190 1 3g THEN 

: «(191 129 BEGIN 

: 136 : Be IF NOT GET_FACTBAD() THEN GET_SOFTBAD(); 

3: 194 1 38 ELSE 

3 195 129 

>; 196 1298 IF .CLUST_PRESENT 

3 197 1299 AND .DEVICE_CHARCDIBS$L_MAXBLOCK) ,ssu 

: 198 1300 (( DEVICE CHARCDIBSL_MAXBLOCK] + .CLUSTER = 1) / .CLUSTER) * .CLUSTER 
3; «6199 1301 THEN MARK_BAD (1, -DEVICE_CHARCDIBSL_MAXBLOCK)); 

3 soe 1 be END; 

3 33 1337 

3 208 : ba Get the descriptor from heap storage and initialize. 

3 $0$ 1309 AREA = GET ynceny -5 Meee + .BADBLOCK_TOTAL*BAD_S_DESC); 

; 206 1308 AREATBAD NOMDE Sf = .BADBLOCK_TOTAL; 

; 207 1309 AREALBAD SERIAL) = . ERIAL_NUMBER; 

: 208 1310 DESC = AREACBAD_D . 

; 209 1 INCR 1 FROM 0 10 .BADBLOCK_TOTAL-1 DO 

3 aii 1343 DESCCBAD_LBN) = .BADBLOCK wn be 

: 1g 1314 DESCCBAD-COUNT] = .BADBLOCK_CNTL.1); 

3 ef 1315 DESC = .BESC + BAD_S_DESC; 

3 si¢ 1 ig END; 

3 15 131 

; 216 1318 

3 avy 1319 ' Return a pointer to the bad block descriptor. 

3 $18 1320 ! 

3 219 135! ARE 

: 220 1322 END; 


—E BADBLOCK Scan bad block information 
T \v04-000\ 


Cie CKRSUME FILE_ERROR 


CKUP$~READBAD 
PACR 
ATA 


-PSECT CODE ,.NOWRT,2 
081¢ 00000 -ENTRY GET_BADBLOCKS, Save R2,R3,R4,R11 ; 1225 


-——__—_—__—— 


| 


———— 
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| BADBLOCK Scan bad block information 15-Sep-1984 23:42:0 AX-11 Bliss-32 V4.0-74 
ol LOCKS = main ba ock routine -Sep- 355: ACKUP.SRC JBADBLOCK. $ 
vive itd GET_BADBLOCKS in bad block i 1a-8ep 198 7 ¢§ 9 te CKUP. SRCIBADBLOC 533 1 
3 FBES CE 9€ 0002 VAB =1052(SP), SP 
8 3 0 VAB PSAREA, P$ 
68 04 AC OOA mova (p 
08 AB ;. « 0 MOVL DEVCHAR 8(P$) 
OC AB 01 p 1 va 12(P 
04 ¢ 9 1 CMPB (AP), #4 
1F OOO1A BLSSU-1$ 
10 AB 1 9 1 MOVL #1, 16(P$) 
OC AB 10 ac p 0 MOVL Ust, 12¢P$) 
14 AB 7C 0 1$ CLRO (P$§ 
32 08 AB 0dO 8 MOVL (P$), R2 
00001000 &F 70 A D1 09 ¢ CMP WecR2), #4096 
OF 01 OA EB 00 BLBS (R2), 2$ 
0000v CF Q Fe 003A CALLS #0, GET_FACTBAD 
2B E8 0003F RO, 
0000v CF 90 Fe 0049 CALLS #0. GET_SOF TBAD 
20 10 AB €9 we 2$: BLBC_ 16(P$), 3$ 
50 70 A 0c AB ci 0040 ADDL3 12(P8), 112(R2), RO 
50 OC AB C6 MiEe DivLg 1g(P$), RO 
50 O¢ AB C4 00059 MULL2  12(P$). RO 
50 0 A2 01 00050 CMPL 112(R25, RO 
OA 1€ 00061 BGEGU 3$ 
70 A2 0D 00063 PUSHL  112(R2) 
1 DD 90066 PUSHL #1 
0000v CF 2 FB 000 CALLS #2, MARK_BAD 
ee 18 oY Bago 3$: MOVL 24(P$), R4 
7E 4 0 0071 ASHL #3, R4, =(SP) 
bE 08 cO 00075 ADDL2 #8. (SP) 
erent ae 8) DD 0007? Rott” ORO! ARE 
62 54 00 0082 MOVL  R4. (AREA) 
04 A2 14 AB DO 0008 MOVL ths oe 4 (AREA) 
50 08 A2 9E OO08A MOVAB §(R2), DESC 
53 1C AB 9E 9008 MOVAB 28 (Ps) R3 
se GFE aneg RRR eg a 
08 11 OO009A BRB 6% 
80 6341 D0 0009C 4$ MOVL  (R3)CIJ, (DESC)+ 
80 6841 D0 OOA0 MOVL (RI1)CI5, (DESC) 
F% 4 54 F2 OOOAS S$ AOBLSS R4, I, 4$ 
50 52 0 OO0A8 MOVL AREA, RO 
04 O00AB RET 


; Routine Size: 172 bytes, Routine Base: CODE + 0000 


~~ a 
MoPoPEMD POPOPOPOTY 


S323 YEN 


-——© 


Pe Se Se Se Se Be Se Se He Be Se Se Be Se Ge Se Se Se Se Be Ge Se Be Fe Se Se Fe Se Fe Se Se Fe Ge Se Ge Se Ge Se Fe Be Ge Se Be Se Be 


‘een 
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| BADBLOCK Scan bad block information 18-5 -1984 23:42:0 AX-11 Bliss-32 V4.0-74 Page 8 
veers GET_FACTBAD = get factory bad block data 1a-8ep-19 4 $7:3¢:08 YBACKUP-SRe BADBLOCK .832;1 “ (5) 
3 ¢ 1323 1 ZSBTTL ‘GET_FACTBAD = get factory bad block data’ 

$ Z : Q ! ROUTINE GET_FACTBAD: L_P$= 

3; 225 1 1 te 

3 § 1 5 1! 

3 1 3 1 ! FUNCTIONAL DESCRIPTION: 

3 8 1 1! This routine processes the factory bad block data found on the Last 
3 ; ' » ! track of the disk. 

> 231 1 é 1 | INPUT PARAMETERS: 

eee 

; 1335 1°! IMPLICIT INPUTS: 

3 5 : $ : Impure area. 

: 237 1 1 | OUTPUT PARAMETERS: 

3 8 1339 1! NONE 

; 239 1340 1! 

3 40 1341 1 =! IMPLICIT OUTPUTS: 

3 41 1 ri} 1! mpure area. 

3 4 134 1! 

3 4 13544 1 ! ROUTINE VALUE: 

3 “e : 4 : True if factory data found, false if not found. 

: 266 1347 1 | SIDE EFFECTS: 

: 47 1348 1! Disk blocks read 

3 48 1349 1°! 

oe hes 

; 331 1 53 BEGIN 

3 2 135 MACRO ! format of physicot block number 

: 25 1354 PBN_SECTOR = 0, 0, e. 0%, |! sector number 

; 254 1355 PBN_TRACK = 1, 0, OX, ! track number 

3 3 ' 2$ PBN_CYLINDER s 2, G, 164, 04; ! cylinder number 

: 257 1358 2 LABEL 

3 4 : 2 SEARCH_TRACK; ' main loop to search last track of disk 
; 260 1361 2 LOCAL 

: 261 1 § LBN ' LBN to mark bad 

: 6@ 136 BLOCKFACT i blocking factor of disk 

; 26 1 FIRST_TIME i first time through flag 

3 264 1365 FIRST-BUFFER, i first buffer flag 

: 265 1 66 NOGOOB, ' no blocks read without errors 

3 66 1 1088 : VECTORC4 ,WORD), ! 1/0 status block 

s sen 1368 STATUS, ' return status 

; 268 1369 P : REF BBLOCK, ! pointer into bad block descriptors 
: 269 1 0 PHYS BLOCK BBLOCK (4) ' current physical block number 

: 270 137 BUFFE : BBLOCK 3183. i 1/0 buffer 

3 71 1 BUF FER2 : BBLOCK (512); ! buffer for second copy of data 

: 7 137 L_DECL; 

fe OR 

F Le ' 6 Compute the blocking factor. 

: rs 1 78 BLOCKFACT = (.DEVICE_CHAR(DIB$B_SECTORS) 

> 278 137 * [DEVICE~CHARLDIBS$B~ TRACKS 


a 
| 
| 
| 
| 
a 
| 
| 


r+ 4 


og block information ts $ep-1984 23:42:0 AX-11 Oh fag =32 v4.0-74 Pp 9 
CIBAD = get factory bad block data ree tats VRE bt Het tt ST a eS 29? 65) 


-DEVIC ~fHARE DI BSt 7 bs Pa 
/ «DEVICE CHARLDIBSL_MAXBLOCK 
ae the cluster factor parameter is present, mark the entire last track of 
i 
I 
T 
4 
4 
4 
6 
6 
7 
7 


e= 

FS 

3 $5 
x 

ow 

ma 

~~ 


ARAN S 


the disk bad to prevent its use. 


F_ .CLUST_PRESENT 
HEN 
MARK _BAD ( 
sDEVICE 
DEVICE 


‘CD G9 CD CD CD C9 CD CO. CD 0D 
SSR rw Ss 


CHA ted 4p BS8_stC TORS] / .BLOCKFACT, 
=CHARCDIBSL-MAXBLOCK] = .DEVICE_CHARCDIBS$B_SECTORS] / .BLOCKFACT); 


woovnovnon 
MW — 


! Now, if automatic bad block process tng is not inhibited tine a good 
i block on the Last track and process the bad block List in it. Do this 
i twice, once on the first good block and once on the first need block 
i after sector 10 (if not redundant) to get both factory and software 

; detected bad block data. 


érrst TIME = TRUE; 
NOGOOD = 
PHYS _BL OCK PBN. CYLINDER] = .DE Ig 


v 
PHYS BLOCK(PBN_TRACK) = -DEVICE 
PHYS_-BLOCKCPBN_SECTOR] = 0; 


Se 


SSSe 


oO 
nm 


E_CHARCDIBSW_CYL aensd - 1; 
HARCD1B8$B_ TRACK 3 ie 


SEARCH_TRACK: BEGIN 
WHILE TRUE DO 
BEGIN 


FIRST pres = TRUE; 
WHILE” TRUE DO 


BEGIN 
LBN = (C, PHYS_BLOCKCPBN_ CYLINDER] * ,DEVICE_CHAR(DI8$8 TRACKS) 
-PHYS BLOCKCPBN_TRACK)) * .DEVICE_CRA RCD] $8_SE 
: -PHYS” BLOCKCPBN_ SECTOR?) / .BLOCKFACT; 

STATUS = $0100 ( 
CHAN = .BADBLOCK_CHAN, 
FUNC = 10$_READLELK, 
10SB = I0SBL0) 
Pi = 
Ps = 512, 
P = .LBN 


): 
IF .STATUS THEN STATUS = .10SBL0); 


CTORS 


(IF PIRST BUFFER THEN BUFFER ELSE BUFFER2), 


wvwuvUvUUUU 
Oe a ee a a a a ee a ee a ae el a ee le a ae a a a a a ee 


NOGOOD = FALSE; 
IF FIRST_BUFFER 


MOTOIMIPINNITY 
REASLSSSSVEAREN LS Sans nnuv=SSwswenr avo Oooewewkoioe 


AUF WN OOOO UNE WN OC ODNO UE WN "OO OONOM 


WWIII IRON 4 2 OOOO 


the oF 
IF RET BUFFERS: FALSE, EQL -1 


THE T_BUFF FALSE 
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bad block information 1b.s Sep-19 70 AX-11 Bliss-32 V4.0-74 Be { 
FACTBAD = get factory bad block data 14-Sep at 7 73 $3 5 BACKUP .SRC JBADBLOCK .832;1 — (38 | 

END 

ELSE ‘ 
~ CHSEQL (512, BUFFER, 512, BUFFER2, 0) 
THEN EXITLOOP; 
END; 
ELSE en «STATUS NEQ SS$_PARITY 


THEN 
FILE ERROR( 
BACKUP$_READBAD, ._BADBLOCK_FAB, .STATUS); 


PHYS_BLOCKCPBN_SECTOR] = “nn BOK tren. SECTOR) 
if -PHYS BLOCKCPBN SECTOR? GEQ .DEVICE_CHARCDIBS$B_SECTORS) 


HEN LEAVE SEARCH_TRACK; 
END. ! end of block search loop 


PUTS ES EE EE 


: We have a good bad block List. Process its entries. 


-FIRST_TIME 
N SERIAL_NUMBER = .BUFFERCBBDS$L_SERIAL]; 


iF 

THE 

IF .BUFFERCBBDSW_FLAGS) EQL 65535 

THEN FILE ERROR (BACKUPS_DIAGPACK, ._BADBLOCK_FAB); 
P 


be BUFFER + BBDSC_DESCRIPT; 


GIN 
If Fk ,Pteaosy CYLINDER] EQL 32767 i 
LBN = « PCBBDSV FILINRERD *, 5 gdEvice cuanepiese TRACKS) 
+P BBD$V" TRACK)) E_CRARCDIB$B_SECTORS) i 
PCBBDSV"SECTOR]) / EN OCKPACT. | 

K_BAD C. 5tten ‘ 

3 ~ <P ct Enthy: 


E 
UNTIL .P GEQA pene 


MEU OS OONOA UE WIN 0 OD NA UNE WIN 9 ODNOAU EW OCONOUE WN O —~ 8 


If we are not “ into the user data, position to it and try again. 
Fst TIME = 

.PRYS 5 BLO OCKEPAN: SECTOR] GEQ 10s -BLOCKFACT THEN EXITLOOP; 
pu’ PBLOt PBN_SECTOR] = 10*.BLOCK FACT; 

' end of outer oop 
en; ! end of block seh CH_TRACK 
: If we found no good data at all, complain. 
iF .NOGOOD 
THEN FILE_ERROR(BACKUPS_FACTBAD, ._BADBLOCK_FAB); 


RETURN NOT .FIRST_TIME; 


abe K Scan bad block information 
v04 GET 


; 393 1494 1 END; 
55 
7E 70 
0000Vv 
oc 
16 «AE OA 
15 AE 09 
08 AE 
10 
59 
04 AE 


BDV DITION 


An Om -wW wn om 


wie 


w> 
m 


A 
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So 


nn 
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ACTBAD = get factory bad block data 


O7FC 00000 GET_FACTBAD: 
WORD 


CE 


ma —& ny NO 


mmwnco— 


15-Sep- 
1h-8ep- 


1986 47:38:07 — YGAckuPeSneSoabeLock.o 


! end of routine GET_FACTBAD 
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RST 
FFER 
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= (SP) 
BUFFER, 4$ 
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BADBLOCK Scan bad block information 15-Sep-1 42:0 AX-11 Bliss-32 v4.0-74 
| ob08 GET_FACTBAD = get factory bad block data 12-80 8-198e $9338: ; BACKUP .SRC BAbBL OCk.039;1 Anes 3 
000000006 ¢ f 0 B6 CALLS #2, $vssq10u : | 
A 8 MOVL RO, STAT : 
A A ¢ BLBC =—_- STATUS + 1425 
A FB AD f ¢ MOVZWL 10SB8, STATUS ; 
3 5a E ¢ BLBC STATUS, 7$ : 14 8 
f 95 AE PS Boose Star | PERSt auFFER, 6s ¢ 1235 
FFFFFFFE gF Fe AD 5 a CMPL FRER? S08. hei : 14 ¢ 
2c é 009 BNEO : 
10 AE DB CLARL = FIRST_BUFFER + 1436) 
1 000D BRB B§ : 1432. 
18 AE FDF8 CD 0200 F : £0 6$: cMpcs #312. BUFFER, BUFFER2 + 1440 | 
Py 
— 1 EB BRB 0$ + 1441) 
000001F4 8F gf bt O0E CMPL = STATUS, #500 + 1444, 
11 13 O00F4 BEQL : | 
SA 0D O0F6 PUSHL STATUS + 1447! 
000000006 &F po ooorA SUSE SRACKUPS. READBAD 1646 
000000006 00 93 FB 199 CALL #3, FILE-ERROR : | 
14 «OA 9 8 919 8$ ADDB2 9. PHYS~BLOCK + 1450 
14 Ag 9A 00108 MOVZBL PHYS BLOEK, RB + 1451) 
08 A? 91 0010F CMPBsé(R7J, R : 
03 1A 00113 BGTRU $ : 
0089 31 0011 BRW 15$ : 
FF4D 31 00118 9$ BRW 3$ : 
06 56 £9 0011B 10$ BiLBC FIRST_TIME, 11$ + 1458 
16 AB FDOF8 CD 00 OO11E MOVL BUFFER, 20(P$) + 1459 
FFFF oF FDFE CD 61 0124 11$ CMPW =s- BUF FER+6, #65535 t 1461, 
OF 12 00128 BNEQ 12$ ; | 
6B DD 00120 PUSHL  (P$) t 1462. 
000000006 8F DD O012F PUSHL  #BACKUP$_DIAGPACK ; 
000000006 00 02 FB 00135 CALLS #2 FILE TERROR : 
54 FEOQO CD 9E 0013¢ 128: V BUFFERS 7 P > 1464 | 
QOOO7FFF BF 64 OF 09 ED 00141 13$:  CMPZV #0, #15, (P), #32767 + 1467 | 
42 13 OO14A BOL 14§ : | 
50 08 AB OD 00146 VL —- BCPS),,_ RO ; 1469 | 
51 64 OF 00 cf 15 ExXT2v #0, #15, (P), R1 : 
3¢ 09 =A oA 0153 nov? L 9¢RO) , R2 ; | 
53 03 Ad 07 6 EF HE EXTZV a: #7, 3(P), R3 t 1470) 
1 co 016 ADDL2 3. R1 : | 
52 08 Ad 9A 0016 MOvZL B(RO), R2 ; 
2 5 g 169 MULL2 R2, RI ; 
0 02 AG 9A 19¢ MOVZBL 2(P), RO + 1471 
31 20 CO 001 9 ADDL2 RO, R1 : 
04 AE 1 C7 0017 DIVL3 BLOCKFACT, R1, LBN ; | 
04 AE DD 00178 PUSHL LBN > 1472) 
1 OD O78 PUSHL ; | 
0000v CF 2 FB 17D CALLS #2, MARK_BAD ; | 
54 4 0182 ADDL2 #4, P : 1473. 
50 f8 AD 1 MOVAB BUFFER512, RO > 1475. 
50 54 e 189 CMPL SCOP, RR ; 
85 F 0018C BLssu 18s : | 
6 p4 001 f 14%:  CLRL  FIRST_TIME > 1480 | 
08 AE 16 AE 08 00 FD 019 CMP2v #0, #8, PHYS BLOCK, 8(SP) + 1481 
8 0197 BGEQ @3=:«é+$ ; | 


6 
BADE. DFE aaa ee information 15-sep-1986 $3: $¢: 03 AX-11 Bliss-32 V4. sore 4 


= get factory bad block data 14-Sep-1984 BACKUP. SRC JBADBLOCK .B 
14 AE 08 A 30 0199 MOVB §(SP), PHYS_BLOCK 
FEB 1 0019E BRwW 
OF OC AE €9 OOTA1 15% BLBC re 5 16$ 
6B ODD O01A5 PUSHL (P$) 
00000000G 8F DD 001A7 PUSHL #OACK KUPS_ FACTBAD 
000000006 00 2 Ff 1AD CALLS FILE-ERROR 
4 6 D2 001B4 16$ MCOML east TIME, R6 
0 6 o187 MOVL R6, RO 
4 001BA RET 


; Routine Size: 443 bytes, Routine Base: CODE + OOAC 


4" 6 
BADBLOCK Scan bad lock information 12-3007 138% 93:48:03 rere Bliss-32 v5 20-046 Page 14 
v04 GET_SOFTBAD = get software detected bad block i 14-Sep-1984 11:55:4 BACKUP. SRC JBADBLOCK .B32;1 (6) 
; 1495 1 ZSBITL "GET_SOFTBAD = get software detected bad block info’ 
3 oe 1098 1 ROUTINE GET-SOFTBAD: L_P$ NOVALUE= 
; 39 1497 1 
; 398 bP 1 fee 
; 399 14 1! 
; 400 1 + 1 ! FUNCTIONAL DESCRIPTION: 
; 401 1501 1! This routine processes the data left by the bad block scan program 
3 rt ! 8 : : somewhere near the end of the disk. 
; 404 1504 1 ! INPUT PARAMETERS: 
; 405 1505 1! NONE 
3 res 1 . 3 
; 40 1 1 { IMPLICIT INPUTS: 
; 408 1508 1! Impure area. 
3; 409 1509 1! 
; 410 1510 1 ! OUTPUT PARAMETERS: 
3; 411 1511 1! NONE 
3 ra 1216 1! 
; (41 1513 1°! IMPLICIT OUTPUTS: 
3 6414 1514 1! Impure area. 
3 «6415 1515 1! 
; 416 12i8 1 ! ROUTINE VALUE: 
; 417 151 1! NONE 
; 418 1518 1! 
3; 6419 1519 1 ! SIDE EFFECTS: 
; 420 1330 1! Disk blocks read 
; 421 1521 1! 
3 $s6 15 ; 1 !-- 
3 «$2 15 1 
: 426 1524 BEGIN 
3; 425 1525 LOCAL 
3; 426 1526 LBN ' LBN to mark bad 
> 427 1327 2 10_§TATUS : VECTORC4,WORD], ! 1/0 status block 
; 428 1528 2 STATUS, ! return status 
; $¢3 1529 § P : REF BBLOCK ! pointes into bad block map 
; 4 1530 BUFFER : BBLOCKES123; / 1/0 buffer 
; 431 1531 L_DECL; 
3 432 1336 
3; 433 153 
; 434 1534 ! Scan from the end of the volume forward to find the bad block data. 
; oa 133? If none is found, output a warning and proceed. 
3 $637 1537 LBN = .DEVICE_CHARCDIB$L_MAXBLOCK); 
3 $38 1338 IF 
3; 439 1539 BEGIN 
3; 440 1540 DECR J FROM 32 TO 1 DO 
3; 6441 1541 4 BEGIN 
3; 644 1346 & LON = .LBN - 1; 
3; «644 P 1543 4 STATUS = $Q10W ( 
3 446 P 1544 4 CHAN = .BADBLOCK_CHAN, 
3: 445 P1545 4 FUNC = J0$ REALE, 
3; 446 P 1268 4 1088 = 10 STATUS(O), 
3 447 P 1547 4 P1 = BU ° 
3; 6448 P 1268 4 Ps = e 
; 649 P 154 4 P = .LBN 
: 450 1550 4 ); 
> 451 1551 4 If .STATUS THEN STATUS = .10_STATUSCO]; 


nn ee 


——_ l 


BREESE 
a J ~ 
NOU SWIM 


Py at of ot ot ot 
C0000 ~~ 
WOO 


—_- om 
| 


VViIVivivinwn —<—o 


SNS NSE AAA AO OOo 


WN |S ODNOUSWN OV ONOUES WR OVOODNOULWM 1 


Coooco~u—~ 


© 000009 Co Co CD 0p: 


Oa a a a a ed ed edd 
—OOONOues 


“” 
ovr 


Lock information 15-sep-1984 $3:69:08 yorels Bliss-32 V4.0-74 


ad 
TBAD = get software detected bad block i 14-Sep-19 75 BACKUP. SRC JBADBLOCK .832;1 


FTB 


>o 


IF STATUS 
THEN 


ECKS FER, Serger ese] (BBMS$W_ CHECKSUM) ) 
AND .BUFFE Dust sege EQ. 1 
AND .BUFFE rites EQL 
FE INUSEJ LEQ (512 = BBMSC_POINTERS = 2) / 2 


AND .BUF 
THEN EXITLOOP FALSE; 


FILE_ERROR( 
BACKUP$_READBAD, ._BADBLOCK_FAB, .STATUS); 


BEGIN 
FILE ERROR(BACKUP$_NOBADDATA, - BADBLOCK_FAB); 
RETURN; 


4 
4 
4 
4 
4 
4 
: 
END; 
! Found a good bad block dooce tpter If the cluster factor parameter was 
present, enter it in the bad block map. Then, process its contents. 

2 

1 


if .CLUST_PRESENT 
MARK_BAD(.DEVICE_CHARCDIB$L_MAXBLOCK] - .LBN, .LBN); 


P = BUFFER + BBMSC_POINTERS; 
vena PS -BUF FERCBBM$B_INUSEJ/2 TO 1 DO 


LBN = .PCBBM$W_LOWLBN): 
LBN<16,8> = .PIBBM$B_HIGHLBN); 
MARK. BAD (,PCBBNSB_COUNTI+1, *LBN); 
= .P + 4 
END; 
END; ! end of routine GET_SOFTBAD 


007C 00000 GET_SOF TBAD: 
WORD 


56 000000096 00 9€ 9000 MOVAB FILE ERROR, R& 
3E FDF CE 9E 0000 MOVAB <=520TSP), §P 
7 AB 00 OO0E MOVL  8(P$), R? 
54 A2 DO 0001 MOVL WigtR2), LBN 
55 é D0 0016 MOVL #32, J 
C 00019 1$: CLRO = = (SP) 
7E D4 00018 CLRL = = (SP) 
74 OF 90010 PUSH 7ghgM 
7E 0200 BF 3C O0001F MOVZWL #512, =(SP) 
14 AE 9F 00024 PUSHAB BUFFER 


r——_—__———_—___ + --- ----—--- — 


| 


GET_SOFTBAD = get software detected bad block i 14-Sep-1984 11:5 


7E 7C 8 7 CLRQ 
FB AD OF 9 PUSHAB 
21 DD 0002C PUSHL 
04 AB DD 000 . PUSHL 
7E D4 000 CLRL 
000000006 99 9 F 033 CALLS 
D OSA OVL 
8 5 f 3 Dd LBC 
F8 a0 § 040 MOVZWL 
6 5 0044 LBC 
E O1FE 8F 3C 00047 MOVZWL 
046 =#A F Q004C USHAB 
000000006 00 9 FB O004F CALLS 
A 3 0056 BLBC 
1 SF 1 00059 CMPB 
25 12 0005C BNEQ 
03 01 AE 9} 64: CMPB 
1F 12 0006 BNEQ 
FD sa 02 Af 91 00064 CMPB 
18 1A 00069 BGTRU 
$2 11 00068 BRB 
QOOO01FS 8F 3 D1 Benge 2$ CMPL 
OD 13 00074 BEQL 
53 DD 00076 PUSHL 
68 DD 00078 PUSHL 
000000006 8F DD O007A PUSHL 
§§ 03 FB 00080 CALL 
9 55 F5 00083 3$ SOBGTR 
6B DD 00086 PUSHL 
000000006 8F DD Booge PUSHL 
66 02 FB O008E CALLS 
04 00091 RET 
oc 10 AB €9 00092 4$: BLEC 
54 43 00096 PUSH 
7E 70) =—A2 54 C3 00098 SUBL 
0000v CF 02 FB 0009D CALLS 
2¢ 04 AE YE OOOA2 5S: MOV 
5 02 AE 9A QO0A6 MOVZBL 
53 O¢ C6 QOOAA DIVL2 
53 06 OOOAD INCL 
19 11 et BRB 
54 02 as 3¢ 00081 6$ MOVZWL 
5h 08 10 62 FO 00085 INSV 
54 po ppBA PUSHL 
7E 01 A2 9A QO0BC MOVZBL 
& D6 000C0 INCL 
0000Vv gf 0 Fe Ones CALL 
2 9 C OC ADDL 
E4 3 £5 QOOCA 7$: SOBGTR 
04 000CD RET 


3; Routine Size: 206 bytes, Routine Base: CODE + 0267 


GREG Re, Peles De Li ete Seca 


BAe. OCK Scan bad block information 18-seo-1984 $3286 


: AX-11 Bliss- 4.0-74 
03 8 Bliss-32 V4.0 


ACKUP. SRC JBADBLOCK .B32; 1 


10 STATUS 

is} 

4(P$) 

~ sp) 

#12, SYS$QI0W 
STAT 


#2, CHECKSUM2 
BUFFER, #1 
UFFER+1, #3 
BUFFER+2, #253 
3$ 


4$ 
TATUS, #500 
STATUS 
(P$) 
#BACKUPS_READBAD 
’ » FILEERROR 
(P$) 
ACKUP$_NOBADDATA 
#2, FILETERROR 
16(P8), 5$ 
LBN, 112(R2), =(SP) 
#2, MARK_ 
BUFFER+4, P 
BUFFER#2, R3 
a ra R3 
), LBN 
, #16, #8, LBN 
, -(SP) 
MARK_BAD 
P 


[ : 

| BADBLOCK Scan bad block information 15-sep-1984 $39¢:03 oor, Bliss-32 V4.0-74 Page 17 
| VO4 MARK_BAD = mark blocks bad 14-Sep-1984 11:55:4 BACKUP .SRC JBADBLOCK .832;1 (7) 
> 493 1 3 1 ZSBTTL "MARK_BAD = mark blocks bad' 

3 $3e : 37 : ROUTINE MARK _BAD (BLOCK _COUNT,START_LBN): L_P$ NOVALUE= 

a, 1898 1 i" 

: 49 1397 1 | FUNCTIONAL DESCRIPTION: 

; § 1598 1! This routine enters the indicated block(s) into the bad block part 

: $500 1599 1! of the allocation table. The table is maintained in reverse order 

3 23) 1099 : by LBN, and adjacent or overlapping areas are merged. 

: 208 1608 1 | INPUT PARAMETERS: 

3 ape 16035 1! BLOCK_COUNT - Count of blocks to mark bad 

3 rit 1oR8 : START_LBN - Start LBN of blocks 

: 507 1606 i IMPLICIT INPUTS: 

: 208 ioe : Impure area. 

: 510 1609 1 | OUTPUT PARAMETERS: 

: 313 isi) di eR 

; 218 ole | i IMPLICIT OUTPUTS: 

: aie OF : Impure area. 

; 316 1615. 1! ROUTINE VALUE: 

: 3i8 + wes. 

: 519 1618 1 | SIDE EFFECTS: 
i: $20 1619 1! NONE 

3 Sei 1620 1! 

; 358 1652 1 

; 32h 16 : BEGIN 

3 Ses 1624 LOCAL 

; $26 1625 LBN, ' start LBN of new bad cluster 

: $2? 1626 COUNT, : block count of new bad cluster 

; 528 1627 . ! index into bad block allocation table 
; 237 1628 3 ! merge loop counter 

3 > +494 L_DECL; 

: 33) 163) 

: 5 § 1632 : Check for table overflow. 

; 336 1634 if ,BADBLOCK_TOTAL GEQ BADBLOCK_MAX 

; 238 1836 BEGIN 

; 538 163 FILE _ERROR(BACKUPS_MAXBAD, ._BADBLOCK_FAB); 

3 273 1638 RETURN; 

; 540 1639 3 

oe: 

: 508 1066 : Round the specified LBN and count to the cluster boundaries. 

: ss 1644 LBN = .START_LBN / .CLUSTER * .CLUSTER; 

: 567 1846 COUNT = (.START_LBN + .BLOCK_COUNT + . CLUSTER - 1) / .CLUSTER * .CLUSTER - .LBN; 
; $68 164 ; 

; «549 1648 ! Search the allocation table until an entry is found with a start LBN lower 
| 
Bee tre 


—_ — 


SUSI 
Wo 


ws 
- 


FIST 
NOU 


Pa 
oO 


aa 
wn 


SUSI 


ys 


SSNONP INO Do wen 


th Ab Ab Ab Ab hb hb Ab Ab Ab Ab db db Ab Ab ubb dh sh sh sb sb ah shal 
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Scan bad block information 18.5. -Sep-19 " 3: $76¢: 03 AX-11 Bliss-32 V4.0-74 
MARK_BAD = mark blocks bad 14-Sep-1984 11:5 BACKUP. SRC JBADBLOCK .832;1 
: than the new LBN. Shuffle the table down at this point and insert the 


; new entry. 


= 0; 
UNTIL 5 i -BADBLOCK_TOTAL DO 
if -BADELOCK LONE. LSSU .LBN THEN EXITLOOP; 
=. 2° 


DUA anne 


PEP ARAAE DAA DPA A ADA AAPA 
o 
SNe SOS 


CHSMOVE ((.BADBLOCK_TOTAL-.J)*4, BADBLOCK_LBN 4 » BADBLOCK mati aert 12): 
CHSMOVE ((.BADBLOCK-TOTAL=.J) #4, BADBLOCK | =CNTC.JJ, BADBLOCK-CNTL.J41]); 
BADBLOCK_TOTAL = “BRDBL ose K_TOTAL + 1; 

BADBLOCK_CNTC. ie 


ao 


ViFWN—OOONAUNE WO” 


BADBLOCK_LBNC. = Lene 
: Now check for adjacencies and merge if they exist. Start with the previous 

: : table entry and compare pairs. 
670 2 iF .J NEQ O THEN J = .J = 1; 
? 1 C = 0; 
? § UNTIL .J + 1 GEQ .BADBLOCK_TOTAL DO 
? H wee LEQ .BADBLOCK_LBNC.J+1] + .BADBLOCK_CNTC.J+1) 
677 BEGIN 
678 BADBLOCK_CNTC.J+1] = MAXU (.BADBLOCK -tBN J] + zBADBLOCK CNTC. See 
679 -BADBLO C.J+] + -BADBLOCK_CNTC.J+1)) 
680 .BADBLOCK_LBN eat 
681 ee ore TOTAL = .BADBL OCK_TOTAL - i; 
ret) CHSMOVE re. BADBLOCK_TOTAL=-.J)*4, he -LBNE.J+1], BADBLOCK_LBNC.J)); 
68 CHSMOVE ((.BADBLOCK™ TOTAL~.J) #4, BADBLOCK~CNTC.J+1], BADBLOCK_CNTC.JJ); 
684 BADBLOCK_CNTC.BADBLOCK_TOTAL) = 0; 
685 END 

86 ELSE 

87 BEGIN 

88 de J @ 13 

89 = .¢ @ 


.C +1: 
IF .€ GEQ 2 THEN EXITLOOP; 
END 


SPOAOAOAAOO 
SS33 


END; ! end of merge loop 
END; ! end of routine MARK_BAD 


wr 


07FC 00000 MARK_BAD: 
WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R1I0 


SE 04 C2 0000 SUBL2 
18 AB 9F 0000 PUSHAB 24(P$) 
00000080 =F 00 BE D1 00008 CMPL a0(SP), #128 
10 19 0001 BLSS—s«1$ 


68 DD 0001 PUSHL (PS) 


Scan bad block information 
MARK_BAD = mark blocks bad 


000000006 00 


59 


57 


9E 
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52 


51 


9E 
9E 


08 A 
08 AC 


00 «BE 


00 3 


O21C (B46 


Ww wm WSF Wu 
onN SMO MOO 


oe oO 
om 


000000006 Bf 


oc 


04 
FF 
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oo 
oo 
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7 
18-56 =1984 23:42:0 AX-11 Bliss-32 V4.0-74 
12-8 08-1 984 99:69:03 YBACKUP SRe BAseL Oty .639;1 
DD 00014 PUSHL CKUP$_MAXBAD 
FB JA CALLS #2, FILEERROR 
09 : 1$: MOVL 12¢P$) R1 
¢ DIVL3 R1, START_LBN, RO 
C5 B MULL3 R1. RO, LEN 
gi F ADDL BL Ock FounT, START _LBN, RO 
: 0035 MOV “1(RITCROJ, R 
C 90 A DIVL 1, R 
C4 00030 LL 1, R 
C3 00040 SUBL3 LBN, RO, COUNT 
ba 0044 CLRL j 
F 46 MOVAB 28(P$), R10 
D O04, 28: CMPL j a0<§p) 
18 3 BGEO § 
D1 0005 CMPL (R10)CJJ, LBN 
1F 00054 BLSSU 3S 
dg 0056 NCL } 
005 BRB $ 
C3 0005A 3$: SUBL 3 J, @0(SP), R7 
C4 0005F MULL2 #4, R7 
DF 90062 PUSHAL 4(R109CJ3 
DF 00066 PUSHAL (R10)CJ 
28 90069 MOVC3  R7, a(SP)+, a@(SP)+ 
DF 0006D PUSHAL 348P$) EJ] 
oF 90072 PUSHAL 540(P$)(J) 
8 0007 MOVC3 R7, a(SP)+, a(SP)+ 
D6 00078 INCL  a0(SP) 
DO 0007E MOVL COUNT, 540(P$)CU] 
D0 90084 MOVL  LBN, (R10)CJJ 
DS 00088 eos? 
1 000A BEQL «6s 4S 
D7 0008C Seth, Ara 
b4 OOO8E 4$: CLRL OO 
E 90091 5$: MOVAB 1(R6), RO 
D1 00095 CMPL RO, a0(SP) 
18 90099 BGEG 6s «BS 
DE 00098 MOVAL 540(P$)CROJ, R9 
ci 900A) ADDL (R9) (R10) ERO, R2 
D1 000A6 CMPL (RIOSCJJ, R 
14 QOOAA BGTR 7$ 
C1 90 AC ADDL3 540(P$)CuJ, (R10)CJJ, R1 
D1 CMPL =saR1, R2 
B7 BGEQU 6$ 
D B9 MOVL R2, RI 
C3 OOOBC 6S: SUBL3 (RIO)CROJ, R1, (RD 
Db? 000C1 DECL a0(sP) 
09 00C4 MOVL.  a@0(SP), R7 
C3 000C8 SUBL 3 J, R7, RB 
C4 O00CC MULL2 #4, R 
DF OOOCF PUSHAL (Rig) 3 
oF 0002 PUSHAL (R10)CRO) 
8 0000 MOVC3 RB, a(SP)+, a(SP)+ 
OF 009 PUSHAL 540(P$)(J] 
8 000 MOVC Rs (R9) asp) 
b4 OF CLRL 3 6<P$)£R7 
1 000€ BRB $ 


o 
° 


19 


S $3288: ; ay Bliss-32 V4.0-74 Page x 


7 
BADBLOCK Scan bad block information 15-Sep-19 


0 
v04 MARK_BAD = mark blocks bad 14-Sep-19 4 BACKUP. SRC JBADBLOCK .832;1 
56 D6 OO0ES 7$: INCL J ; 1688. 
04 AE 06 OOOEB INCL C 3: 1689 
02 04 AE O01 popes CMPL f #2 3; 1690. 
9D 19 O000F2 BLSS 3 
04 OO0F4 8$: RET 3; 1693 


; Routine Size: 245 bytes, Routine Base: CODE + 0335 


a 4 
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| ? 

BADBLOCK Scan bad block information if-se -1984 23:42:0 AX-11 Bliss-32 V4.0-74 Pa 1 
‘you MARK_BAD = mark blocks bad 12-80 8= 1384 #9:$9:2 BACKUP. SRC BAbeN ote.639 v B) 

3 1694 1 END 

: 298 1695 0 ENODON 

: PSECT SUMMARY 

3 Name Bytes Attributes 

; CODE 1066 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

3 Smaastes FRG E cocccune Pages Processing 

} File Total ioaded Percent Mapped Time 

; -$255$DUA28: (CSYSLIBILIB.L32;1 18619 27 0 1000 00:02.2 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:BADBLOCK/0BJ=0BJ$:BADBLOCK MSRC$:BADBLOCK/UPDATE=(ENHS$:BADBLOCK) 

3; Size: 1066 coge + 0 data bytes 

3 Run Time: 00:29. 

3; Elapsed Time: 01:37. 

3 Lines/CPU Min: 3485 

3 gonenea crete 31118 

; Y Used: 259 pages 

3 oe ation saee tenes 
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